home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PASDEMO2 / TESTKBD1.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  228b  |  12 lines

  1. program TestKbd;
  2. uses Crt, Turbo3;
  3. var
  4.    c: char;
  5. begin
  6.    read( Kbd, c );
  7.    if ( c = #27 ) and KeyPressed then begin
  8.       read( Kbd, c );
  9.       writeln( 'Extended key: ', c );
  10.    end else
  11.       writeln( c );
  12. end.